home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / cpmenu.arc / CMDUSER.XXX < prev    next >
Encoding:
Text File  |  1991-01-31  |  1.2 KB  |  42 lines
  1. ; AUTOEXEC section when Command Post is the primary shell.
  2.  
  3.   ; Load programs specified on LOAD line in WINDOWS section of WIN.INI.
  4.   a=StrLower(StrCat(StrTrim(IniRead("Windows","Load",""))," "))
  5.   sl=StrLen(a)
  6.   if sl<=1 then goto endload
  7.   n=0
  8.   :loop
  9.   i=n+1
  10.   n=StrScan(a," ,",i,@fwdscan)
  11.   p=StrSub(a,i,n-i)
  12.   ; Don't load program if cmdpost or if it does not exist,
  13.   if p=="cmdpost" || p=="cmdpost.exe" then goto DontLoad
  14.   if FileExist(p) then goto LoadIcon
  15.   p=StrCat(p,".exe")
  16.   if FileExist(p) then goto LoadIcon
  17.   goto DontLoad
  18.   :LoadIcon
  19.   RunIcon(p,"")
  20.   :DontLoad
  21.   if n<sl then goto loop
  22.   :EndLoad
  23.   drop(a,i,n,p,sl)
  24.  
  25.   ; Load default user interface specified on UserInterface line
  26.   ; in CP section of WIN.INI.  If icons, iconize Command Post.
  27.   ; If menus and icons, iconize Program Manager.
  28.   a=StrLower(iniread(CP,"UserInterface","menus"))
  29.   if a=="both"  then RunIcon("progman.exe","")
  30.   if a<>"icons" then exit
  31.   WinIconize("")
  32.   Run("progman.exe","")
  33.  
  34. ; New menu item for Command Post and Windows help
  35. &Help
  36.  CmdPost &Help
  37.         run("cardfile.exe","cp_help.crd")
  38.  CmdPost &Questions 'n Answers
  39.         run("cardfile.exe","cp_quest.crd")
  40.  &Windows Help
  41.         run("winhelp.exe","progman.hlp")
  42.